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--File: WEBreak.mesa 
--Edited by: 

Johnsson July 22, 1978 1:16 PM 

Sandman May 4, 1978 10:56 AM 

Barbara June 26, 1978 10:25 AM 

DIRECTORY 

AUoDefs: FROM "altodefs" USING [CharsPerPage] , 

AltoFileDefs: FROM "al tof il edef s" USING [FA], 

ControlDefs: FROM "controldef s" USING [BytePC, GlobalFrameHandle], 

DebugBreakptDefs: FROM "debugbreakptdef s" USING [ 

BreakPointError , BTtype, EXOItype, InsertBreak, RemoveBreak, SCtype], 
DebugContextDefs: FROM "debugcon textdef s" USING [ 

FrameToModuleName, ModuleNameToFrame , Multiplelnstances] , 
DebugData: FROM "debugdata" USING [gContext], 
DebuggerDefs: FROM "debuggerdef s" USING [PcToBTI], 
DebugMiscDefs: FROM "debugmiscdef s" USING [LookupFail] , 
DebugSymbolDefs: FROM "debugsymboldefs" USING [ 

DAcquireSymbolTable, DReleaseSymbolTable, SymbolsForGFrame] , 
DebugUtil ityDefs: FROM "debugutil itydef s" USING [LoadStatelnva! id] , 
lODefs: FROM "iodefs" USING [ControlZ, CR. SP], 
LoadStateDefs: FROM "loadstatedef s" USING [ 

InputLoadState, ReleaseLoadState] , 
KeyDefs: FROM "keydefs" USING [Keys], 
MenuDefs: FROM "menudefs" USING [ 

ClearMenu, CreateMenu, DisplayMenu, MarkMenuItem, Menultem], 
RectangleDefs: FROM "rectangledef s" USING [ 

CursorToMapCoords , InvertBoxInRectangle, Rptr], 
StreamDefs: FROM "streamdefs" USING [ 

Equallndex, GetFA, JumpToFA, Normal izelndex , StreamError] , 
StringDefs: FROM "stringdefs" USING [AppendChar. AppendString , EqualString] , 
SymbolTableDefs: FROM "symboUabledef s" USING [ 

NoSymbol Table, Symbol Tab! eB as e] , 
SymDefs: FROM "symdefs" USING [FGTEntry], 
WindExDefs: FROM "windexdefs" USING [ 

CursorToRectangleCoords.GetMouseButton, Nulllndex, SetCursor, 

WEDataHandle, xcursorloc, ycursorloc], 
WindowDefs: FROM "windowdefs" USING [ 

DiskHandle, GetCurrentDispl ayWindow, GetSelection , MarkSelection, 

Streamlndex, UpdateSelection , WindowHandle, xCoord, yCoord]; 

DEFINITIONS FROM StreamDefs, WindowDefs, WindExDefs; 

WEBreak: PROGRAM [WEState: WEDataHandle] 

IMPORTS DebugBreakptDefs, DebugContextDefs, DebuggerDefs, DebugMiscDefs, 
DebugSymbolDefs, DebugUtil i tyDef s , LoadStateDefs, MenuDefs, RectangleDefs* 
StreamDefs, StringDefs, SymbolTableDefs, WindExDefs, WindowDefs, 
DDptr: DebugData 

EXPORTS WindExDefs 

SHARES StreamDefs, WindExDefs =» 

BEGIN 

OPEN WEState; 

CR: CHARACTER = 15C; 

-- some externals 

nCommands: CARDINAL « 12; 

create: CARDINAL « 0; 
destroy: CARDINAL = 1; 
move: CARDINAL = 2; 
grow: CARDINAL « 3; 
load: CARDINAL - 4; 
stuff: CARDINAL « 5; 
find: CARDINAL « 6; 
break: CARDINAL « 7; 
clear: CARDINAL « 8; 
trace: CARDINAL » 9; 
position: CARDINAL « 10; 
keys: CARDINAL - 11; 

MenuSelect: PUBLIC PROCEDURE [w: WindowHandle, x: xCoord, y: yCoord]- 
BEGIN OPEN MenuDefs; 
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-- define locals 

index: INTEGER *- -1; 

mapx: xCoord; 

mapy: yCoord; 

defaultmenu: DESCRIPTOR FOR ARRAY OF Menultem - 

DESCRIPTOR[BASE[menuarray], LENGTH[menuarray]] ; 
-- check if a menu 

IF w.menu ■ NIL THEN w.menu <- CreateMenu[def aultmenu] ; 
-- paste it up there 

[mapx, mapy] ^ RectangleDef s.CursorToMapCoords[defauUmapdata, x, y]; 
mapy <- MIN[mapy, MAX[0, (w. rectangle. bitmap. height) 

-(LENGTH[w.menu.array]+L00PH0LE[defaultlineheight,INTEGER]+2)]]; 
SetCursor[menu]; 

DisplayMenu[w.menu , w. rectangle. bitmap, mapx, mapy]; 
-- while the button is down select menu items 
WHILE GetMouseButton[] « Blue DO 

-- convert to rectangle coords 

X ♦- xcursorloct; 

y ♦- ycursorloct; 

-- and see if in menu 

[x, y] ^ CursorToRectangleCoords[w. menu . rectangle, x, y]; 

index ^ IF x > AND x <= w.menu . rectangle. cw AND y > AND 
y <« w.menu. rectangle. ch THEN y/def aul tl ineheight ELSE -1; 

IF index >= LENGTH[w. menu. array] THEN index ^ -1; 

MarkMenuItem[w.menu, index]; 
ENDLOOP; 

-- and restore menus region and contents underneath 
CI earMenu[ w.menu] ; 
-- see if command selected 

IF index iff -1 THEN w.menu. array[index] . proc[w, xcursorloct, ycursorloct]; 
END; 

FGFrame: TYPE = RECORD [ 
fge: SymDef s . FGTEntry , 
frame: Control Defs .GlobalFrameHandle]; 

SetBreak: PROCEDURE [w: WindowHandle , x: xCoord, y: yCoord] « 
BEGIN 

cond: STRING « IF KeyDefs . Keys .Ctrl « down THEN "1"L ELSE NIL; 
Breakpt[w, set, break, cond]; 
END; 

Clear: PROCEDURE [w: WindowHandle, x: xCoord, y: yCoord] » 
BEGIN 

Breakpt[w, clear, break, NIL]; 
END; 

SetTrace: PROCEDURE [w: WindowHandle, x: xCoord, y: yCoord] = 
BEGIN 

Breakpt[w, set, trace, NIL]; 
END; 

SCtype: TYPE = DebugBreakptDef s .SCtype; 
BTtype: TYPE » DebugBreakptDef s.BTtype; 

FlashWindow: PUBLIC PROCEDURE [w: WindowHandle] « 
BEGIN OPEN RectangleDefs; 
r: Rptr = w. rectangle; 

InvertBoxInRectangle[r , 0, r.cw, 0, r.ch]; 
THROUGH [0..5000) DO NULL ENDLOOP; 
InvertBoxInRectangle[r , 0, r.cw, 0, r.ch]; 
END; 

Breakpt: PROCEDURE [w: WindowHandle. sc: SCtype, bt: BTtype. cond: STRING] « 

BEGIN OPEN Stringbefs, DebugBreakptDef s ; 

str: STRING; 

fgf: FGFrame; 

IF w.type ff file THEN RETURN; 

str <- GetSelection[w]; 

IF Equallndex[w. selection. rightindex, Nulllndex] THEN RETURN; 

SetCursor[hourglass]; 

BEGIN 

ENABLE SymbolTableDef s .NoSymbolTable. BreakPointError , 

DebugMiscDefs .LookupFail , DebugCon textDef s .Multipleln stances, 
DebugUtilityDefs.LoadStatelnvalid »> BEGIN Fl ashWindow[w] ; CONTINUE END; 
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SELECT TRUE FROM 

EqualString[str, "PROCEDURE"L] -> 
BEGIN 

fgf *- SetupBreakPoint[w, w. selection . leftindex, entry]; 
IF sc « set THEN InsertBreak[fgf. frame, [fgf . fge. cindex] , entry , bt, cond] 
ELSE RemoveBreak[fgf . frame, [fgf. Fge . cindex]] ; 
IF GetCurrentDisplayWindowi] « w THEN 

BEGIN MarkSelection[w]; UpdateSe"lection[w] ; END; 
END; 
EqualString[str,"RETURN"L] -> 
BEGIN 

fgf <- SetupBreakPoint[w, w. selection . leftindex, exit]; 
IF sc = set THEN InsertBreak[fgf. frame, [fgf .fge. cindex] , exit ,bt , cond] 
ELSE RemoveBreak[fgf .frame, [f gf. fge, cindex]] ; 
IF GetCurrentDisplayWindowi] « w THEN 

BEGIN MarkSe1ection[w]; UpdateSe1ection[w] ; END; 
END; 
ENDCASE => 
BEGIN 

fgf «- SetupBreakPoint[w, w. selection . leftindex, in]; 
IF sc ~ set THEN InsertBreak[fgf. frame, [fgf .fge. cindex] , in, bt, cond] 
ELSE RemoveBreak[fgf. frame, [fgf .fge .cindex]] ; 
IF GetCurrentDisplayWindow[] - w THEN 
BEGIN 

MarkSelection[w]; 
w. selection . leftindex <- w. selection . rightindex ^ 

Normal izeIndex[[0,fgf.fge.findex]]; 
UpdateSelection[w] ; 
END; 
END; 
END; 

ButtonWait[]; 
SetCursor[textpointer] ; 
RETURN; 
END; 

SetupBreakPoint: PROCEDURE [ 

w: WindowHandle, index: Streamlndex, type: DebugBreakptDef s . EXOItype] 

RETURNS [fgf: FGFrame] « 

BEGIN OPEN SymbolTableDefs, DebugSymbolDef s; 

symbase: SymbolTableBase; 

delta: CARDINAL ^ 10000; 

i,x,besti: CARDINAL <- 0; 

module: STRING ^ [40]; 

indexx: CARDINAL *- Al toDef s .CharsPerPage*index . page + index, byte; 

IF ~LittleParser[w, module] 

THEN SIGNAL DebugMiscDef s . LookupFai 1 ["PROGRAM"L] ; 
fgf. frame ^ GetContext[module] ; 

symbase <- DAcquireSymbolTable[Symbol sForGFrame[fgf. frame]] ; 
BEGIN OPEN symbase; 
FOR i IN [0. .LENGTH[fgTable]) DO 

IF indexx >= (x «- fgTable[i ] .f index) AND (x *- indexx-x) < delta THEN 
BEGIN 

delta <- x; besti <- i; 
IF delta = THEN EXIT; 
END; 
ENDLOOP; 
SELECT type FROM 
entry => 
BEGIN 

fgf, fge. cindex <- fgTable[besti + l] .cindex; 
f gf . f ge. Findex <- fgTable[besti + l] . f index; 
END; 
exit -> 

WITH (bb+DebuggerDef s .PcToBTI[symbase . [fgTable[ besti] .cindex]]). info 
SELECT FROM 

External «> BEGIN 

fgf. fge. cindex <- ControlDeFs .By tePC[origin^bytes-l] ; 
fgf . fge . findex <- fgTable[star llndex+indexLength-l] . findex; 
END; 
ENDCASE; 
in «> 
BEGIN 

fgf. fge. cindex <- FgTable[besti] .cindex; 
fgf .fge. findex *- fgTable[besti] . findex; 
END; 
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ENDCASE; 
DReleaseSymbolTabI e[symbas0] ; 
END; 
RETURN 
END; 

GetContext: PROCEDURE [module: STRING] 

RETURNS [frame: ControlDefs .Global FrameHandle] » 

BEGIN 

currentContext: STRING ^ [40]; 

[] ♦- LoadStateDefs.InputLoadState[]; 

DebugContextDef s . FrameToModuleName[DDptr . gContext , currentContext I 

UNWIND -> LoadStateDefs,ReleaseLoadState[]]; 
LoadStateDef s.ReleaseLoadState[]; 
frame ^ IF StringDef s . EqualStr ing[module, currentContext] THEN 

DDptr .gContext ELSE DebugContextDef s . Mod uleNameToFrame [module] ; 
RETURN 
END; 

LittleParser: PROCEDURE [w: WindowHandle, module: STRING] 
RETURNS[BOOLEAN] = 
BEGIN 

char: CHARACTER; 
testid: STRING ♦- [40]; 
fa: AltoFileDefs.FA; 
found: BOOLEAN <- FALSE; 
module . length ^ 0; 
GetFA[w.file, 0fa]; 
w. file. reset [w. file]; 
WHILE -found DO 

ENABLE StreamError, NotFound => BEGIN modu le . 1 ength <- 0; EXIT END; 
Getld[w. file, testid]; 
SELECT TRUE FROM 

Str i ngDef s. Equal St ring[ test Id. "DIRECTORVL], 
StringDefs.EqualString[testId, "DEFINITIONS'^] => 

UNTIL (char <- w.f ile.get[w. f ile]) = ' ; DO NULL; ENDLOOP; 
ENDCASE »> 

BEGIN OPEN StringDefs; 

AppendString[module, testid] ; 

Getld[w. file. testid]; 

IF EqualString[testId. "PROGRAM"L] OR EqualString[testId, "MONITOR"L] 

THEN found ^ TRUE; 
EXIT; 
END; 
ENDLOOP; 
JumpToFA[w.f ile. @fa]; 
RETURN[found] 
END; 

NotFound: SIGNAL - CODE; 

Getid: PROCEDURE[f ile: DiskHandle. token: STRING] = 
BEGIN OPEN lODefs; 
c: CHARACTER *- f i 1 e . get[f il e] ; 
token. length <- 0; 
DO 

SELECT c FROM 
'- => 

IF (c ^ file.get[file]) » ' - THEN 
DO 

SELECT file.get[file] FROM 

CR => BEGIN c *- CR; EXIT END; 

'- => IF file.get[file] = '- THEN 

BEGIN c ^ file.get[file]; EXIT END; 
ENDCASE; 
ENDLOOP 
ELSE SIGNAL NotFound; 
ControlZ => UNTIL file. get[f ile] = CR DO 
NULL REPEAT FINISHED «> c *- CR ENDLOOP; 
SP, CR «> IF token. length ^ THEN RETURN ELSE c ^ f il e. get[f ile] ; 
•», •[ «> SIGNAL NotFound; 
' : => RETURN; 

< 40C «> c ♦- file.get[file]; 
ENDCASE »> 

BEGIN StringDefs. AppendChar[token, c]; c <- f ile.get[f ile] ; END; 
ENDLOOP; 
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RETURN; 
END; 



ButtonWait: PROCEDURE ■ 
BEGIN 

-- wait until all button are up 
UNTIL GetMouseButton[] - None DO NULL; ENDLOOP; 
RETURN; 
END; 

-- initialization for windows module 

InitBreak: PROCEDURE - 
BEGIN OPEN MenuDefs; 

menuarray[break] ♦- MenuItem["Set Brk", SetBreak]; 
menuarray[clear] *■ MenuItem["Clr Brk", Clear]; 
menuarray[trace] <- MenuItem["Set Trc", SetTrace]; 
END; 

InitBreak[]; 
END. of WEBreak 



